Voorbeeld van de eigenschap ReferencesEvents

Het volgende voorbeeld maakt gebruik van code waarin de eigenschap ReferencesEvents is opgenomen, om gebeurtenisverwerkingscode te ondersteunen voor het toevoegen of verwijderen van verwijzingen.

Private WithEvents X As ReferencesEvents

Sub Test()
    Set X = Application.VBE.Events.ReferencesEvents
End Sub

Private Sub X_ItemAdded(ByVal Reference As VBIDE.Reference)
    ' Put code to support item addition here
End Sub

Private Sub X_ItemRemoved(ByVal Reference As VBIDE.Reference)
    ' Put code to support item removal here
End Sub